home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / grafik / cyberupdate / cybergraphx_update next >
Text File  |  1995-08-15  |  49KB  |  1,449 lines
  1. ;******************************************************************************** 
  2. ;
  3. ;    ______        __                  ______                     __  __   __
  4. ;   / __  /       / /                 / __  /                    / /  \ \ / /
  5. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  6. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
  7. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  8. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  9. ;         /_/                                        / /           
  10. ;                                                   /_/           
  11. ; CyberGraphX Update Installer ©1994-1995 by Robert C. Reiswig  (August-11-95)
  12. ;
  13. ; For use with PD and Registered CyberGraphX Only, not for Commercial use.
  14. ; For Frank Mariak : CyberGraphX!
  15. ;
  16. ;--------------------------------------------------------------------------------
  17. ; Installer suggestions or problems: rcr@netcom.com
  18. ; Any changes or additions must be run by me.
  19. ; © MCMXCV 
  20. ;********************************************************************************
  21.  
  22.  
  23. ;******************************************************************************** 
  24. ; Any new 3rd Party Program Drivers. Version of CyberGraphX & PAY 
  25. ;********************************************************************************
  26. ; 
  27. (set #cyberver "2.08")
  28.  
  29.  
  30. (message (cat "\nCyberGraphX V" #cyberver "\n~~~~~~~~~~~~~~~~~~\n"
  31.               "CyberVision64\n\nPicasso II\n\nSpectrum\n\nDomino\n\nRetina Z3 BLT\n\nPiccolo & Piccolo SD64"
  32.          )
  33. )
  34.  
  35. (welcome)
  36. ;******************************************************************************** 
  37. ;
  38. ; Read All System information 
  39. ;
  40. ;********************************************************************************
  41. (set cpu (database "cpu"))
  42. (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  43. (set vblank (database "vblank"))
  44. (set graphmem (database "graphics-mem"))
  45. (set totmem (database "total-mem"))
  46. (set osver (/ (getversion "LIBS:version.library") 65536))
  47. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  48. (set fastmem (- totmem graphmem))
  49.  
  50. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  51. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  52. ( if (= osver 41) ( (set workbench "4.0")) )))))
  53.  
  54.  
  55.  
  56. ;(run "type >RAM:lan EnvArc:sys/locale.prefs opt h")
  57. ;(set runstring (cat "search" " RAM:lan "))
  58. (set runstring (cat "search" " env:Language "))
  59.  
  60. (set english "")  (set german  "")
  61.  
  62. (set runstring1 (cat runstring "deutschland"))   (if (= (run runstring1) 0) (set german1 "Deutsch"))
  63. (set runstring1 (cat runstring "english"))   (if (= (run runstring1) 0) (set english1 "English"))      
  64. (set lang 0)
  65. (if (= english1 "English") (set lang 1))
  66.  
  67.  
  68. (set CyberDrawer "SYS:")
  69. (set were "sys")
  70.  
  71.  
  72. ;******************************************************************************** 
  73. ;
  74. ;ASK DEFAULT LANG
  75. ;
  76. ;********************************************************************************
  77.  
  78.  
  79. (set #langQuestion (cat "The following were found in Locale:\n\n" english1 "\n"german1"\n\nSelect one of the installers supported Languages."))
  80.  
  81. (set LAN  (askchoice (choices "German (Deutsch)" "English"
  82.              (prompt #langQuestion)
  83.                      (help "Select a Language")
  84.                    (default lang)
  85.                  )
  86.           )
  87. )
  88.  
  89.  
  90.  
  91.  
  92. ;******************************************************************************** 
  93. ;
  94. ;English Information
  95. ;
  96. ;********************************************************************************
  97.  
  98.  
  99. (set #ThankYou (cat "\nWelcome to the Registered version of the CyberGraphX "
  100.                     "installer!\n\n\nTHANK\n\nYOU\n\nFrom the CyberGraphX Team."
  101.                )
  102. )
  103.  
  104. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  105.               "Software by:\n\nVision Factory Development"
  106.  
  107.               ;"\n\n\nInstallers & Versions By:\n Robert Reiswig - rcr@netcom.com"
  108.          )
  109. )
  110.  
  111.  
  112.  
  113.  
  114.  
  115. (set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n"
  116.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  117.                     "Kickstart 3.x, **You only have " workbench "**\n\n" 
  118.                     "PicassoII in linear mode *not segmented*\n\n"
  119.                     "68020 or higher\n\n"
  120.                     "2 MB of fast memory"                       
  121.                ) 
  122. )
  123.  
  124.  
  125. (set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n"
  126.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  127.                     "68020 or higher, **You only have " cpu "**\n\n"
  128.                     "PicassoII in linear mode *not segmented*\n\n"
  129.                     "Kickstart 3.x\n\n"                     
  130.                     "2 MB of fast memory" 
  131.                )
  132. )  
  133.  
  134.  
  135. (set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  136.                    " \"" workbench "\" Version of OS\n\n"
  137.                    " \"" cpu "\" Processor\n\n "
  138.                    " \"" blank "\" Machine\n\n"
  139.                    " \"" graphmem  "\" Total Free Chip Memory\n\n"
  140.                    " \"" fastmem  "\" Total Free Fast Memory\n\n  \"" totmem "\" Total Free Memory\n\n"
  141.               )
  142. )
  143.  
  144.  
  145. (set #WillInstall "\n\n\n\nThis installer will Move OR Delete the Current Graphic Boards's Drivers.  Please read the Docs if you have any question!\n")
  146.  
  147.  
  148. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  149.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  150.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  151.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  152.                           "YOU MUST DO THIS NOW!"
  153.                      )
  154. )
  155.  
  156.  
  157. (set #BackUpFiles "BackUp the Files")
  158. (set #DeleteFiles "Delete the Files")
  159. (set #ask-BackOrDelete "The Installer will Back up the Current Boards System software, if you select, to: ")
  160.  
  161.  
  162.  
  163.  
  164. (set #ask-MODEFILE "Which modefile should be installed ?")
  165. (set #15KHZ "15khz maximum")
  166. (set #31KHZ "31khz maximum")
  167. (set #35KHZ "35khz maximum")
  168. (set #38KHZ "38khz maximum")
  169. (set #48KHZ "48khz maximum")
  170. (set #57KHZ "57khz maximum")
  171. (set #64KHZ "64khz maximum")
  172.  
  173.  
  174. (set #wishtoinstall "Do you wish to install any of the following?")
  175. (set #order "Order Form")
  176. (set #guide "AmigaGuide File")
  177. (set #devdocs  "Developer Documentation")
  178. (set #versions "Versions - Shows Vers of CyberGraphX") 
  179. (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"CyberGraphX\" will be created there!)")
  180. (set #SetEnv "SetEnv - Sets/Changes Env Vars")
  181.  
  182.  
  183. (set #Comming (cat "\nCOMING! (Planned Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  184.                    "15/16/24 bit extension of the "normal" graphics.library, that means that "
  185.                    "you can open 24bit screens as standard intuition screens and that you "
  186.                    "can use all graphics.library functions on them as before. (with some "
  187.                    "limitations of course because of the missing color lookup table)\n\n"
  188.                    "Application to adjust the monitor parameters"
  189.               )  
  190. )
  191.    
  192.  
  193.  
  194. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  195.                    "As a registered user, you will get the latest registered "
  196.                    "release of CyberGraphX including a personalized graphics board driver.\n\n"
  197.                    "The first update of the graphics board driver is for free, any forthcoming "
  198.                    "update will cost DM 5 (US$ 5 outside EU) just to pay our posting&packaging "
  199.                    "costs. email updates will be charge free. This offer is valid for registered users only of course."
  200.               )
  201. )
  202.  
  203.  
  204.  
  205. (set #REGtext (cat "LAST INFO\n~~~~~~~~~~~~~\n"
  206.                "You can reach us at the following address:\n"
  207.                "          Frank Mariak       Thomas Sontowski        \n"
  208.                "        Klosterstr. 7      Bensberger Marktweg 15\n"
  209.                "        44135 Dortmund     51069 Köln            \n\n\n"
  210.                "Feel free to contact us by email or smail if you have any questions."
  211.           )
  212. )
  213.  
  214. (set #REGtext1 (cat "You can now register CyberGraphX from\n"
  215.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  216.                     "Europe/Africa/Aisa/Australia/Antarctia\n\n"
  217.                     "Frank Mariak\n"
  218.                     "Klosterstr. 7\n"
  219.                     "44135 Dortmund\n"
  220.                     "Germany\n\n"
  221.                     "Thomas Sontowski\n"
  222.                     "Bensberger Marktweg 15\n"
  223.                     "51069 Koeln\n"
  224.                     "Germany\n"               
  225.                )
  226. )
  227.  
  228. (set #REGtext2 (cat "You can now register CyberGraphX from\n"
  229.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  230.                     "North-America & South-America\n\n"
  231.                     "Robert Reiswig\n"
  232.                     "5396 Norma Way\n"
  233.                     "Livermore, California 94550-3802\n"
  234.                     "United States of America\n\n\n"
  235.                     "Please read the Orderform!"
  236.                                  
  237.                )
  238. )
  239.  
  240. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  241.                         "* In the Shareware release there are no custom modes available. "
  242.                         "In the registered version there are no limitations of this kind "
  243.                         "of course. You may define higher colordepth and refresh frequencies.\n\n"
  244.                         "* If you are registered we grant support if you have any problems "
  245.                         "or questions by email and/or smail. We can't do this for any person who "
  246.                         "has problems with the unregistered release !\n"
  247.                    )
  248. )
  249.  
  250.  
  251.  
  252. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  253.                   "By setting this variable, the planar-to-chunky conversion "
  254.                   "will be done by the CPU (in contrast to the blitter-conversion) "
  255.                   "Therefore the ugly-looking "planar" blitting-effects are gone, "
  256.                   "but the software-conversion is slower. Do you wish to Enable this feature?"
  257.              )
  258. )
  259.   
  260.  
  261. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  262.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  263.                      "become Hires-sprites (they are no longer doubled by "
  264.                      "the CyberGraphX-Software). "
  265.                      "This variable is identical to the tooltype HIRESSPRITE "
  266.                      "of older Picasso-monitor files."
  267.                 )
  268. )
  269.  
  270.  
  271. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  272.                      "By setting this variable, you can switch off 15bit modes to reduce "
  273.                      "screenmode list length. The Modes are still available but hidden."
  274.                 )
  275. )
  276.  
  277.  
  278. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  279.                      "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) " 
  280.                      "will be placed on an CyberGraphX screens."
  281.                 )
  282. )
  283.  
  284.  
  285.  
  286.  
  287. (set #ask-driver (cat "Select The Driver(s) you wish to install."))
  288.  
  289.  
  290.  
  291.  
  292.  
  293. (set #CyberREG (cat "If you have a Registered version of CyberGraphX installed or you are running a CyberVision board, "
  294.                     "please select 'Quick Update'. "
  295.                )
  296. )
  297. (set #firstTime "First time install")
  298. (set #PDInstalled "PD version Installed")
  299. (set #REGInstalled "Registered version Installed")
  300. (set #quickupdate "Quick Update (New Libs & Drivers only)")
  301. (set #cvmode "CVMode (Screen Mode Creator)")
  302.  
  303.  
  304. (set #WhereReadME "Please select where you wish to put the ReadMe.")
  305.  
  306.  
  307.  
  308. (set #NoUp    "No, Don't update") 
  309. (set #OnlyNew "Yes, Only if newer")
  310. (set #YesAll  "Yes, No matter what")
  311.  
  312.  
  313. ;******* New Text June 16, 1995
  314. (set #checkcustom (cat "\nThe installer will now check\n"
  315.                        "'SYS:Expansion/village.library.info'\n"
  316.                        "To see if the tool type MONITOR is set to CUSTOM.\n\n"
  317.                        "It would be best to set this to custom so that when you install "
  318.                        "the REG version 'ConvPicassoModes' can convert over all you Sceeen modes "
  319.                        "that you currently use correctly.  If you get an error message you can just skip it."
  320.                   )
  321. )
  322.  
  323.  
  324. (set #ask-Amax "Do you wish to install the CyberGraphX Amax Driver? (It only does 1024x768x256)")
  325. (set #where-Amax "Where do you wish to Install the Amax Driver?\n(The default is \"Work:\")")
  326.  
  327.  
  328. (set #changes (cat "\nStarting with this release, CyBERgraphics now has a new and better name:"
  329.                    "\n\n\nCyberGraphX\n\n\n"
  330.                    "Also starting with this release the Version Numbering has changed. This would "
  331.                    "have been 40.50 but will now be called 2.0 of CyberGraphX. This has been done "
  332.                    "to remove the link between the cybergraphics.library version and the CyberGraphX package version!"
  333.               )
  334. )
  335.  
  336. (set #AboutQuickie (cat "\nThis will ONLY UPDATE the CyberGraphX libraries and Monitor Driver(s).\n\n"
  337.                         "It is ment for CyberGraphX users. This includes Registered, Non-Registered CyberGraphX users along with CyberVision owners!\n\n"
  338.                         "It will update your system to version " #CyberVer
  339.                         " of the CyberGraphX package.\n\nIf this is your first time Installing CyberGraphX " 
  340.                         "then you will need to get the _complete_ Archive off Aminet first!"
  341.                     )
  342. )
  343.  
  344. ;************************ New Text July 20, 1995 *********************
  345. (set #yes "Yes - On")
  346. (set #no "No - Off") 
  347. (set #youwantto "You want to set:")
  348. (set #to "To:")
  349.  
  350. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  351.                      "By setting this variable, 8 bit deep screens are always opened "
  352.                      "in Fast memory. Useful with 1MB chip systems but you should "
  353.                      "avoid it with 2MB chip, because the older method is more "
  354.                      "compatible (no taglist changes etc.) "
  355.                 )
  356. ) 
  357.  
  358. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  359.                      "With this option on, non displayable planar bitmaps "
  360.                      "are allocated in fast memory. This options speeds up "
  361.                      "handling of planar bitmaps but could lead to problems "
  362.                      "with amiga graphics which insist on planar graphics "
  363.                      "placed in chip memory. Take care when using this option."
  364.                 )
  365. ) 
  366.  
  367. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  368.                     "If this option is enabled, the monitor switch on every "
  369.                     "CyberGraphX supported board is deactivated. This option is "
  370.                     "required for multi monitor systems."
  371.                 )
  372. ) 
  373.  
  374. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  375.                      "If this option is disabled, everytime a CyberGraphX display "
  376.                      "becomes frontscreen, Amiga display DMA is switched off in order "
  377.                      "to increase chipmem access speed. You can avoid this by enabling "
  378.                      "this option. "
  379.                 )
  380. ) 
  381.  
  382.  
  383. (set #board (cat "\nPlease Select the Graphics Board you wish to update CyberGraphX Monitor File for:\n"))
  384.  
  385.  
  386. ;************************ New Text July 21, 1995 *********************
  387.  
  388. (set #updatecorrect "\n\n\nThe Monitor file updated correctly!\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  389. (set #updatePD "\n\n\nThe Monitor Updater is for Registered Users only.\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  390. (set #updateBad "\n\n\nThere has been an error in the Monitor File update.\n\nThe Monitor File is corrupt, bad, renamed or it is missing. Please Check this!\n")
  391. (set #updateNoUpdate "\n\n\nCurrently there is no Updater for your Monitor File.\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  392.  
  393.  
  394.  
  395. ;************************ New Text August 12, 1995 *********************
  396.  
  397. (set #NoUp     "No, Don't update") 
  398. (set #OnlyNew  "Yes, Only if newer")
  399. (set #OnlyNewB "Yes, Only if newer with backup")
  400. (set #YesAll   "Yes, No matter what with no backup")
  401.  
  402.  
  403. (set #thefollowing "The following have been backed up to\n\n\"SYS:Storage/CyberGraphX/libs\"")
  404.  
  405.  
  406. (set #cybergfx "\n\nNot backed up - cybergraphics.library")
  407. (set #cyberint "\n\nNot backed up - cyberintuition.library")
  408. (set #cyberlayers "\n\nNot backed up - cyberlayers.library")
  409. (set #cybervil "\n\nNot backed up - vilintuisup.library") 
  410. (set #gtlay "\n\nNot backed up - gtlayout.library")
  411.  
  412.  
  413.  
  414.  
  415.  
  416. ;******************************************************************************** 
  417. ;
  418. ;German Information
  419. ;
  420. ;********************************************************************************
  421.  
  422. (if (= LAN 0)
  423. (
  424.  
  425.  
  426. (set #By (cat "\n\nCyberGraphX Software\nVersion " #cyberver "\n\n\n\n"
  427.               "Software von:\n\nVision Factory Development"
  428.               ;"\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com"
  429.          )
  430. )
  431.  
  432. (set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n"
  433.               "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  434.                   "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n"
  435.                   "PicassoII im linear Modus *nicht segmentiert*\n\n"
  436.                   "68020 oder höher\n\n"
  437.                   "2 MB FAST Ram"
  438.              )
  439. )
  440.  
  441. (set #MinReqCP  (cat "Folgendes sind die Minimalanforderungen!\n"
  442.                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  443.                    "68020 oder höher, **Sie haben nur eine " cpu "**\n\n"
  444.                    "PicassoII im linear Modus *nicht segmentiert*\n\n"
  445.                    "Kickstart 3.x\n\n"
  446.                    "2 MB FAST Ram"
  447.               )
  448. )
  449.  
  450.  
  451. (set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  452.                    " Version \"" Workbench "\" des OS\n\n"
  453.                    " \"" cpu "\" Prozessor\n\n "
  454.                    " \"" blank "\" Gerät\n\n"
  455.                    " \"" graphmem  "\" freier Chip Speicher\n\n"
  456.                    " \"" fastmem  "\" freies Fast RAM\n\n  \"" totmem "\" freies RAM gesamt\n\n"
  457.               )
  458. )
  459.  
  460.  
  461. (set #WillInstall "\n\n\n\nDieses Installerskript sichert oder löscht die aktuellen Grafikkarten Treiber.  Bitte lesen sie die Guidedatei bei Fragen!\n")
  462.  
  463.  
  464. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  465.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  466.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  467.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  468.                           "YOU MUST DO THIS NOW!"
  469.                      )
  470. )
  471.  
  472.  
  473.  
  474. (set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?")
  475. (set #15KHZ "Definition mit 15khz max. HFrequenz")
  476. (set #31KHZ "Definition mit 31khz max. HFrequenz")
  477. (set #35KHZ "Definition mit 35khz max. HFrequenz")
  478. (set #38KHZ "Definition mit 38khz max. HFrequenz")
  479. (set #48KHZ "Definition mit 48khz max. HFrequenz")
  480. (set #57KHZ "Definition mit 57khz max. HFrequenz")
  481. (set #64KHZ "Definition mit 64khz max. HFrequenz")
  482.  
  483. (set #wishtoinstall "Wollen Sie folgende Dateien installieren ?")
  484. (set #order "Bestellformular")
  485. (set #guide "AmigaGuide Datei")
  486. (set #devdocs  "Entwickler Dokumentation")
  487. (set #versions "Versions - Zeigt die CyberGFX Versionen") 
  488. (set #WhereStuffDir "Bitte wählen sie einen Zielpfad.\n(Ein Verzeichnis \"CyberGraphX\" wird automatisch erstellt!)")
  489.  
  490. (set #Comming (cat "\nCOMING! (Geplante Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  491.                    "* 15/16/24 bit Erweiterung der "normalen" graphics.library, das bedeutet, daß "
  492.                    "man 24bit Bildschirme als Standard Intuition Bildschirme öffnen kann und "
  493.                    "das alle graphics.library Funktionen wie zuvor darauf benutzt werden können "
  494.                    "(mit Einschränkungen wegen der fehlenden Farbtabelle)\n\n"
  495.                    "* Ein Monitor Modes Edit Tool"
  496.               )  
  497. )
  498.    
  499.  
  500. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  501.             "Als registrierter Anwender erhalten Sie die neueste Version von "
  502.             "CyberGraphX mit einem auf sie persönlich registrierten Grafikkarten "
  503.             "Treiber. Neu erscheinende Versionen der CyberGraphX libraries "
  504.             "und tools werden weiterhin über elektronische Netze veröffentlicht "
  505.             "und können dann auch direkt von Ihnen ohne Einschränkungen genutzt "
  506.             "werden. Neue Versionen des Grafikkarten Treibers werden Ihnen "
  507.             "persönlich zugestellt (per smail bzw. email)\n"
  508.             "Dieses Angebot gilt selbstverständlich nur für registrierte Benutzer.\n"
  509.               )
  510. )
  511.  
  512.  
  513. (set #REGtext   (cat"Letzte Info\n~~~~~~~~~~~~~\n"
  514.                      " Bei Fragen wenden Sie sich an:\n\n"
  515.                      "     Frank Mariak       Thomas Sontowski        \n"
  516.                      "      Klosterstr. 7      Bensberger Marktweg 15\n"
  517.                      "      44135 Dortmund     51069 Köln            \n\n\n"
  518.                      "Bei Anregungen & Verbesserungsvorschläge können Sie uns gerne per Post oder email kontaktieren."
  519.                  )
  520.  
  521. )
  522.  
  523.  
  524.  
  525. (set #REGtext1 (cat "Registrierungs Adressen für\n"
  526.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  527.                     "Europa/Afrika/Asien/Australien\n\n"
  528.                     "Frank Mariak\n"
  529.                     "Klosterstr. 7\n"
  530.                     "44135 Dortmund\n"
  531.                     "Germany\n\n"
  532.                     "Thomas Sontowski\n"
  533.                     "Bensberger Marktweg 15\n"
  534.                     "51069 Koeln\n"
  535.                     "Germany\n"               
  536.                )
  537. )
  538.  
  539. (set #REGtext2 (cat "Registrierungsaddressen für\n"
  540.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  541.                     "North-America & South-America\n\n"
  542.                     "Robert Reiswig\n"
  543.                     "5396 Norma Way\n"
  544.                     "Livermore, California 94550-3802\n"
  545.                     "United States of America\n\n\n"
  546.                     "Please read the Orderform!"
  547.                                  
  548.                )
  549. )
  550.  
  551.  
  552.  
  553. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  554.                         "* Im Shareware release sind keine Custom Modes verfügbar. "
  555.                         "In der registrierten Version sind diese Beschränkungen natürlich nicht. "
  556.                         "Dort können höhere Farbtiefen und Refreshfrequenzen verwendet werden..\n"
  557.                         "* Nur der ADPro 2.5 Treiber ist im Shareware release verfügbar. "
  558.                         "In der Vollversion gibt es auch Treiber für Maxon Cinema 4D, Real3D, Photogenics, "
  559.                         "PhotoWorx, AmaxIV ... mehr werden folgen.\n"
  560.                    )
  561. )
  562.  
  563.  
  564.  
  565. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  566.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  567.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  568.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  569.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  570.              )
  571. )
  572.   
  573.  
  574. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  575.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  576.                      "zu Hires-sprites (Sie werden nicht mehr von der CyberGraphX Software "
  577.                      "verdoppelt). "
  578.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  579.                      "in der alten Picasso software)."
  580.                 )
  581. )
  582.  
  583.  
  584.  
  585. (set #NoUp    "Nein, nicht erneuern") 
  586. (set #OnlyNew "Ja, nur wenn neuer")
  587. (set #YesAll  "Ja, egal was installiert ist")
  588.  
  589.  
  590. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  591.                      "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um "
  592.                      "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar."
  593.                 )
  594. )
  595.  
  596. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  597.                      "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) " 
  598.                      "auf einen CyberGraphX Bildschirm umgeleitet."
  599.                 )
  600. )
  601.  
  602.  
  603.  
  604. (set #ask-driver (cat "Bitte wählen Sie die Treiber, die installiert werden sollen."))
  605.  
  606.  
  607. (set #CyberREG (cat "Haben Sie bereits eine Version von CyberGraphX installiert? Wenn das so ist, ueberschreibt die Installation die Monitordatei nicht ! Sie muessen diese Frage richtig beantworten!"))
  608. (set #firstTime "Erstinstallation")
  609. (set #PDInstalled "PD version installiert")
  610. (set #REGInstalled "Registrierte Version installiert")
  611. (set #quickupdate "Schnelles Update (Nur neue Libraries & Treiber)")
  612. (set #cvmode "CVMode (Screen Mode Programm)")
  613.  
  614.  
  615. (set #WhereReadME "Bitte waehlen Sie den Pfad, wo die LiesMich Datei hinkopiert werden soll.")
  616.  
  617. (set #changes (cat "\nBeginnend mit dieser Veröffentlichung heißt das CyBERgraphics System nun anders:"
  618.                    "\n\n\nCyberGraphX\n\n\n"
  619.                    "Ebenso hat sich die Versionsnummernvergabe geändert. Es hätte wie bisher eigentlich "
  620.                    "40.50 sein müssen. Ab sofort ist es aber die Version 2.0 von CyberGraphX. Damit ist endlich der "
  621.                    "Zusammenhang zwischen der Version der cybergraphics.library und dem CyberGraphX Paket aufgehoben"
  622.               )
  623. )
  624.  
  625.  
  626. (set #AboutQuickie (cat "\n\nDieses Paket erneuert NUR die CyberGraphX libraries.\n\n"
  627.                         "Es ist sowohl für registrierte als auch unregistrierte CyberGraphX Benutzer gedacht!\n\n"
  628.                         "Es updated Ihr System auf Version " #CyberVer
  629.                         " der CyberGraphX libraries.\n\nWenn Sie CyberGraphX zum ersten Mal installieren, " 
  630.                         "brauchen Sie das _komplette_ Archiv vom Aminet!"
  631.                     )
  632. )
  633.  
  634.  
  635. ;********************** New Text July 20, 1995 *******************
  636. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  637.                      "Wird diese Option aktiviert, werden CyberGraphX 256-Farben Bildschirme "
  638.                      "immer direkt im FastRAM geöffnet. Das ist sinnvoll bei Rechnern mit 1MB "
  639.                      "ChipRAM, sollte aber mit 2MB ChipRAM Systemen vermieden werden, da die "
  640.                      "alte Methode in einigen Punkten kompatibler ist."
  641.                 )
  642. ) 
  643.  
  644.  
  645. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  646.                      "Ist diese Option aktiv, werden nicht darzustellende "
  647.                      "planare BitMaps im FastRAM angelegt. Diese Option "
  648.                      "beschleunigt die Bearbeitung von planaren BitMaps aber "
  649.                      "kann zu Problemen mit Amiga Originalgrafik führen, wenn "
  650.                      "diese davon ausgeht, dass planare BitMaps im ChipRAM liegen. "
  651.                      "Seien Sie vorsichtig mit der Aktivierung dieser Option."
  652.                 )
  653. ) 
  654.  
  655. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  656.                     "Wenn diese Option aktiviert ist, wird der Monitorumschalter "
  657.                     "auf jeder von CyberGraphX unterstützten Karte deaktiviert. "
  658.                     "Diese Option ist für Mehr-Monitor Systeme erforderlich. "
  659.                 )
  660. ) 
  661.  
  662. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  663.                      "Ist diese Option nicht aktiv, wird jedesmal, wenn "
  664.                      "ein CyberGraphX Bildschirm nach vorne kommt, die Amiga Bildschirm "
  665.                      "DMA abgeschaltet, um den Zugriff auf das ChipMemory zu beschleunigen. "
  666.                      "Dies kann durch Aktivierung der Option vermieden werden. "
  667.                 )
  668. ) 
  669.  
  670. (set #board (cat "\nBitte wählen Sie die Grafikkarte, deren Monitordatei Sie erneuern möchten:\n"))
  671.  
  672.  
  673. ;************************ New Text July 21, 1995 *********************
  674.  
  675.  
  676. (set #updatecorrect "\n\n\nDie Monitordatei wurde erneuert!\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  677. (set #updatePD "\n\n\nDas Erneuern der Monitor funktioniert nur mit registrierten Monitordateien!!\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  678. (set #updateBad "\n\n\nEs ist ein Fehler aufgetreten beim Erneuern.\n\nDie Monitordatei ist entweder defekt, umbenannt oder fehlt. Bitte überprüfen Sie das!\n")
  679. (set #updateNoUpdate "\n\n\nEs existiert kein Updater für diesen Monitortreiber in diesem Archiv.\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  680.  
  681.  
  682. (set #yes "Ja")
  683. (set #no "Nein")
  684. (set #youwantto "Sie wollen die Änderung von:")
  685. (set #to "auf:")
  686.  
  687.  
  688.  
  689. ;************************ New Text August 12, 1995 *********************
  690.  
  691. (set #NoUp     "Nein, nicht erneuern") 
  692. (set #OnlyNew  "Ja, nur wenn neuer")
  693. (set #OnlyNewB "Ja, nur wenn neuer + Backup")
  694. (set #YesAll   "Ja, egal welche Version")
  695.  
  696.  
  697.  
  698. ;****
  699.  
  700.  
  701. (set #thefollowing "Folgende Dateien wurden gesichert in\n\n\"SYS:Storage/CyberGraphX/libs\"")
  702.  
  703.  
  704. (set #cybergfx "\n\nNicht gesichert - cybergraphics.library")
  705. (set #cyberint "\n\nNicht gesichert - cyberintuition.library")
  706. (set #cyberlayers "\n\nNicht gesichert - cyberlayers.library")
  707. (set #cybervil "\n\nNicht gesichert - vilintuisup.library") 
  708. (set #gtlay "\n\nNicht gesichert - gtlayout.library")
  709.  
  710.  
  711.  
  712. )
  713.  
  714. )
  715.  
  716. ;******************************************************************************** 
  717. ;
  718. ; Quick Update! *********************
  719. ;
  720. ;********************************************************************************
  721. (message #by)
  722. ;(message #Changes)
  723. (message #AboutQuickie)
  724.  
  725. ;*******************************************************************
  726. ;  Make dirs for backup
  727. ;*******************************************************************
  728.  
  729. (if (< (exists ("sys:Storage")) 2)  (makedir ("sys:Storage") (infos))  )
  730. (if (< (exists ("sys:Storage/CyberGraphX")) 2)  (makedir ("sys:Storage/CyberGraphX") (infos))  )
  731. (if (< (exists ("sys:Storage/CyberGraphX/libs")) 2)  (makedir ("sys:Storage/CyberGraphX/libs") (infos))  )
  732.  
  733.  
  734.  
  735. ;*******************************************************************
  736. ;  cybergraphics.library
  737. ;*******************************************************************
  738. (set vernum1 (getversion "sys:libs/cybergraphics.library"))
  739. (set ver1 (/ vernum1 65536))
  740. (set rev1 (- vernum1 (* ver1 65536) ) )
  741.  
  742.  
  743. (set vernum2 (getversion "libs/cybergraphics.library"))
  744. (set ver2 (/ vernum2 65536))
  745. (set rev2 (- vernum2 (* ver2 65536) ) )
  746.  
  747.  
  748.  
  749. (set pick 0)
  750.  
  751. (set pick (askchoice
  752.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  753.         (prompt ("'cybergraphics.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'cybergraphics.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
  754.         (help " ")        
  755.               (default 2)
  756.       )
  757. )
  758.  
  759.  
  760.  
  761. (if (= pick 1)
  762.  
  763.         (copylib (source "libs/cybergraphics.library") (dest "SYS:Libs"))
  764.  
  765. )
  766.  
  767.  
  768.  
  769. (if (= pick 2)
  770.    (
  771.  
  772.      (set sizeneed (getsize "libs/cybergraphics.library"))
  773.      (set space    (getdiskspace "sys:"))
  774.  
  775.  
  776.      (set ok 0)
  777.      (set ##ver (cat ver1 "." rev1) ) 
  778.      (set #cybergfx (cat "\n\nNo room on SYS: for cybergraphics.library" ##ver))
  779.      
  780.      (if (> space sizeneed)
  781.         (
  782.      
  783.         (copyfiles (source "sys:libs/cybergraphics.library")
  784.                    (dest "SYS:Storage/CyberGraphX/libs")
  785.                    (newname (cat "cybergraphics.library" ver1 "." rev1))
  786.         )  
  787.  
  788.  
  789.  
  790.         (copylib (source "libs/cybergraphics.library") (dest "SYS:Libs"))
  791.      
  792.         (set #cybergfx (cat "\n\ncybergraphics.library" ##ver))
  793.         (set ok 1)
  794.       
  795.         )
  796.      )
  797.      
  798.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  799.      (if (= ok 0) (message (cat #noroom "cybergraphics.library" ##ver  
  800.                             "\n\nThe newer\n\ncybergraphics.library " ver2 "." rev2
  801.                             "\n\nwas not copied over/updated to SYS:Libs"
  802.                             )
  803.                   ) 
  804.      )
  805.  
  806.  
  807.    )
  808.  
  809. )
  810.  
  811.  
  812.  
  813.  
  814.  
  815.  
  816. (if (= pick 3)
  817.  
  818.         (copyfiles
  819.             (prompt "Copying 'cybergraphics.library' to Libs:")
  820.         (source "libs/cybergraphics.library")
  821.             (dest "SYS:Libs")
  822.             (confirm)
  823.             (infos) (help " ")
  824.          )
  825.  
  826. )
  827.  
  828.  
  829.  
  830. ;*******************************************************************
  831. ;  cyberintuition.library
  832. ;*******************************************************************
  833.  
  834.  
  835. (set vernum1 (getversion "sys:libs/cyberintuition.library"))
  836. (set ver1 (/ vernum1 65536))
  837. (set rev1 (- vernum1 (* ver1 65536) ) )
  838.  
  839.  
  840. (set vernum2 (getversion "libs/cyberintuition.library"))
  841. (set ver2 (/ vernum2 65536))
  842. (set rev2 (- vernum2 (* ver2 65536) ) )
  843.  
  844.  
  845.  
  846. (set pick 0)
  847.  
  848. (set pick (askchoice
  849.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  850.         (prompt ("'cyberintuition.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'cyberintuition.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
  851.         (help " ")        
  852.               (default 2)
  853.       )
  854. )
  855.  
  856.  
  857.  
  858. (if (= pick 1)
  859.  
  860.         (copylib (source "libs/cyberintuition.library")    (dest "SYS:Libs"))
  861.  
  862. )
  863.  
  864.  
  865.  
  866. (if (= pick 2)
  867.    (
  868.  
  869.     (set sizeneed (getsize "libs/cyberintuition.library"))
  870.      (set space    (getdiskspace "sys:"))
  871.  
  872.  
  873.      (set ok 0)
  874.      (set ##ver (cat ver1 "." rev1) ) 
  875.      (set #cyberint (cat "\n\nNo room on SYS: for cyberintuition.library" ##ver))
  876.      
  877.      (if (> space sizeneed)
  878.         (
  879.      
  880.         (copyfiles (source "sys:libs/cyberintuition.library")
  881.                    (dest "SYS:Storage/CyberGraphX/libs")
  882.                    (newname (cat "cyberintuition.library" ver1 "." rev1))
  883.         )  
  884.  
  885.  
  886.  
  887.         (copylib (source "libs/cyberintuition.library") (dest "SYS:Libs"))
  888.      
  889.         (set #cyberint (cat "\n\ncyberintuition.library" ##ver))
  890.         (set ok 1)
  891.       
  892.         )
  893.      )
  894.      
  895.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  896.      (if (= ok 0) (message (cat #noroom "cyberintuition.library" ##ver  
  897.                             "\n\nThe newer\n\ncyberintuition.library " ver2 "." rev2
  898.                             "\n\nwas not copied over/updated to SYS:Libs"
  899.                             )
  900.                   ) 
  901.      )
  902.  
  903.  
  904.  
  905.    )
  906.  
  907. )
  908.  
  909.  
  910.  
  911.  
  912.  
  913. (if (= pick 3)
  914.  
  915.         (copyfiles
  916.             (prompt "Copying 'cyberintuition.library' to Libs:")
  917.         (source "libs/cyberintuition.library")
  918.             (dest "SYS:Libs")
  919.             (confirm)
  920.             (infos) (help " ")
  921.          ) 
  922.  
  923. )
  924.  
  925.  
  926.  
  927.  
  928. ;*******************************************************************
  929. ;  cyberlayers.library
  930. ;*******************************************************************
  931.  
  932.  
  933. (set vernum1 (getversion "sys:libs/cyberlayers.library"))
  934. (set ver1 (/ vernum1 65536))
  935. (set rev1 (- vernum1 (* ver1 65536) ) )
  936.  
  937.  
  938. (set vernum2 (getversion "libs/cyberlayers.library"))
  939. (set ver2 (/ vernum2 65536))
  940. (set rev2 (- vernum2 (* ver2 65536) ) )
  941.  
  942.  
  943.  
  944. (set pick 0)
  945.  
  946. (set pick (askchoice
  947.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  948.         (prompt ("'cyberlayers.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'cyberlayers.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
  949.         (help " ")        
  950.               (default 2)
  951.       )
  952. )
  953.  
  954.  
  955.  
  956. (if (= pick 1)
  957.  
  958.         (copylib (source "libs/cyberlayers.library") (dest "SYS:Libs"))
  959.  
  960. )
  961.  
  962.  
  963.  
  964. (if (= pick 2)
  965.    (
  966.  
  967.      (set sizeneed (getsize "libs/cyberlayers.library"))
  968.      (set space    (getdiskspace "sys:"))
  969.  
  970.  
  971.      (set ok 0)
  972.      (set ##ver (cat ver1 "." rev1) ) 
  973.      (set #cyberlayers (cat "\n\nNo room on SYS: for cyberlayers.library" ##ver))
  974.      
  975.      (if (> space sizeneed)
  976.         (
  977.      
  978.         (copyfiles (source "sys:libs/cyberlayers.library")
  979.                    (dest "SYS:Storage/CyberGraphX/libs")
  980.                    (newname (cat "cyberlayers.library" ver1 "." rev1))
  981.         )  
  982.  
  983.  
  984.  
  985.         (copylib (source "libs/cyberlayers.library") (dest "SYS:Libs"))
  986.      
  987.         (set #cyberlayers (cat "\n\ncyberlayers.library" ##ver))
  988.         (set ok 1)
  989.       
  990.         )
  991.      )
  992.      
  993.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  994.      (if (= ok 0) (message (cat #noroom "cyberlayers.library" ##ver  
  995.                             "\n\nThe newer\n\ncyberlayers.library " ver2 "." rev2
  996.                             "\n\nwas not copied over/updated to SYS:Libs"
  997.                             )
  998.                   ) 
  999.      )
  1000.  
  1001.  
  1002.  
  1003.  
  1004.    )
  1005.  
  1006. )
  1007.  
  1008.  
  1009.  
  1010.  
  1011. (if (= pick 3)
  1012.  
  1013.         (copyfiles
  1014.             (prompt "Copying 'cyberlayers.library' to Libs:")
  1015.         (source "libs/cyberlayers.library")
  1016.             (dest "SYS:Libs")
  1017.             (confirm)
  1018.             (infos) (help " ")
  1019.          ) 
  1020.  
  1021. )
  1022.  
  1023.  
  1024.  
  1025.  
  1026.  
  1027. ;*******************************************************************
  1028. ;  vilintuisup.library
  1029. ;*******************************************************************
  1030.  
  1031.  
  1032. (set vernum1 (getversion "sys:libs/vilintuisup.library"))
  1033. (set ver1 (/ vernum1 65536))
  1034. (set rev1 (- vernum1 (* ver1 65536) ) )
  1035.  
  1036.  
  1037. (set vernum2 (getversion "libs/vilintuisup.library"))
  1038. (set ver2 (/ vernum2 65536))
  1039. (set rev2 (- vernum2 (* ver2 65536) ) )
  1040.  
  1041.  
  1042.  
  1043. (set pick 0)
  1044.  
  1045. (set pick (askchoice
  1046.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  1047.         (prompt ("'vilintuisup.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'vilintuisup.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
  1048.         (help " ")        
  1049.               (default 2)
  1050.       )
  1051. )
  1052.  
  1053.  
  1054. (if (= pick 1)
  1055.  
  1056.         (copylib (source "libs/vilintuisup.library") (dest "SYS:Libs"))
  1057.  
  1058. )
  1059.  
  1060.  
  1061.  
  1062. (if (= pick 2)
  1063.    (
  1064.  
  1065.      (set sizeneed (getsize "libs/vilintuisup.library"))
  1066.      (set space    (getdiskspace "sys:"))
  1067.  
  1068.  
  1069.      (set ok 0)
  1070.      (set ##ver (cat ver1 "." rev1) ) 
  1071.      (set #cybervil (cat "\n\nNo room on SYS: for vilintuisup.library" ##ver))
  1072.      
  1073.      (if (> space sizeneed)
  1074.         (
  1075.      
  1076.         (copyfiles (source "sys:libs/vilintuisup.library")
  1077.                    (dest "SYS:Storage/CyberGraphX/libs")
  1078.                    (newname (cat "vilintuisup.library" ver1 "." rev1))
  1079.         )  
  1080.  
  1081.  
  1082.  
  1083.         (copylib (source "libs/vilintuisup.library") (dest "SYS:Libs"))
  1084.      
  1085.         (set #cybervil (cat "\n\nvilintuisup.library" ##ver))
  1086.         (set ok 1)
  1087.       
  1088.         )
  1089.      )
  1090.      
  1091.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  1092.      (if (= ok 0) (message (cat #noroom "vilintuisup.library" ##ver  
  1093.                             "\n\nThe newer\n\nvilintuisup.library " ver2 "." rev2
  1094.                             "\n\nwas not copied over to SYS:Libs"
  1095.                             )
  1096.                   ) 
  1097.      )
  1098.  
  1099.        
  1100.  
  1101.  
  1102.  
  1103.  
  1104.    )
  1105.  
  1106. )
  1107.  
  1108.  
  1109.  
  1110.  
  1111. (if (= pick 3)
  1112.  
  1113.         (copyfiles
  1114.             (prompt "Copying 'vilintuisup.library' to Libs:")
  1115.         (source "libs/vilintuisup.library")
  1116.             (dest "SYS:Libs")
  1117.             (confirm)
  1118.             (infos) (help " ")
  1119.          ) 
  1120.  
  1121. )
  1122.  
  1123.  
  1124. ;*******************************************************************
  1125. ;  gtlayout.library
  1126. ;*******************************************************************
  1127.  
  1128.  
  1129. (set vernum1 (getversion "sys:libs/gtlayout.library"))
  1130. (set ver1 (/ vernum1 65536))
  1131. (set rev1 (- vernum1 (* ver1 65536) ) )
  1132.  
  1133.  
  1134. (set vernum2 (getversion "libs/gtlayout.library"))
  1135. (set ver2 (/ vernum2 65536))
  1136. (set rev2 (- vernum2 (* ver2 65536) ) )
  1137.  
  1138.  
  1139.  
  1140. (set pick 0)
  1141.  
  1142. (set pick (askchoice
  1143.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  1144.         (prompt ("'gtlayout.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'gtlayout.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
  1145.         (help " ")        
  1146.               (default 2)
  1147.       )
  1148. )
  1149.  
  1150.  
  1151. (if (= pick 1)
  1152.  
  1153.         (copylib (source "libs/gtlayout.library") (dest "SYS:Libs"))
  1154.  
  1155. )
  1156.  
  1157.  
  1158.  
  1159. (if (= pick 2)
  1160.    (
  1161.  
  1162.       (set sizeneed (getsize "libs/gtlayout.library"))
  1163.      (set space    (getdiskspace "sys:"))
  1164.  
  1165.  
  1166.      (set ok 0)
  1167.      (set ##ver (cat ver1 "." rev1) ) 
  1168.      (set #gtlay (cat "\n\nNo room on SYS: for gtlayout.library" ##ver))
  1169.      
  1170.      (if (> space sizeneed)
  1171.         (
  1172.      
  1173.         (copyfiles (source "sys:libs/gtlayout.library")
  1174.                    (dest "SYS:Storage/CyberGraphX/libs")
  1175.                    (newname (cat "gtlayout.library" ver1 "." rev1))
  1176.         )  
  1177.  
  1178.  
  1179.  
  1180.         (copylib (source "libs/gtlayout.library") (dest "SYS:Libs"))
  1181.      
  1182.         (set #gtlay (cat "\n\ngtlayout.library" ##ver))
  1183.         (set ok 1)
  1184.       
  1185.         )
  1186.      )
  1187.      
  1188.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  1189.      (if (= ok 0) (message (cat #noroom "gtlayout.library" ##ver  
  1190.                             "\n\nThe newer\n\ngtlayout.library " ver2 "." rev2
  1191.                             "\n\nwas not copied over to SYS:Libs"
  1192.                             )
  1193.                   ) 
  1194.      )
  1195.  
  1196.         
  1197.  
  1198.  
  1199.  
  1200.  
  1201.    )
  1202.  
  1203. )
  1204.  
  1205.  
  1206.  
  1207.  
  1208. (if (= pick 3)
  1209.  
  1210.         (copyfiles
  1211.             (prompt "Copying 'vilintuisup.library' to Libs:")
  1212.         (source "libs/gtlayout.library")
  1213.             (dest "SYS:Libs")
  1214.             (confirm)
  1215.             (infos) (help " ")
  1216.          ) 
  1217.  
  1218. )
  1219.  
  1220.  
  1221.  
  1222.  
  1223. ;*******************************************************************
  1224. ;  Let then know that has been backed up!
  1225. ;*******************************************************************
  1226.  
  1227.  
  1228.  
  1229. (message (cat #thefollowing #cybergfx #cyberint #cyberlayers #cybervil #gtlay)) 
  1230.  
  1231.  
  1232.  
  1233. ;******************************************************************************** 
  1234. ;
  1235. ; Move #?monitor file from envarc: to envarc:CyberGraphics for newer Libraries
  1236. ; This is here just for backup!
  1237. ;
  1238. ;********************************************************************************
  1239.  
  1240. (if (< (exists "env:cybergraphics") 2)
  1241.    (makedir "env:cybergraphics") 
  1242. )
  1243.  
  1244. (if (< (exists "envarc:cybergraphics") 2)
  1245.    (makedir "envarc:cybergraphics")
  1246. )
  1247.  
  1248.  
  1249. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor"))  1)
  1250.       (if (> (exists ("EnvArc:PicassoMonitor")) 0)
  1251.          (copyfiles (source "EnvArc:PicassoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1252.       )
  1253. )
  1254.  
  1255. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor")) 1)
  1256.       (if (> (exists ("EnvArc:SpectrumMonitor")) 0)
  1257.          (copyfiles (source "EnvArc:SpectrumMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1258.       )
  1259. )
  1260.  
  1261. (if (< (exists ("EnvArc:CyberGraphics/PiccoloMonitor")) 1)
  1262.       (if (> (exists ("EnvArc:PiccoloMonitor")) 0)
  1263.          (copyfiles (source "EnvArc:PiccoloMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1264.       )
  1265. )
  1266.  
  1267. (if (< (exists ("EnvArc:CyberGraphics/DominoMonitor")) 1)
  1268.       (if (> (exists ("EnvArc:DominoMonitor")) 0)
  1269.          (copyfiles (source "EnvArc:DominoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1270.       )
  1271. )
  1272.  
  1273.  
  1274. (if (< (exists ("EnvArc:CyberGraphics/RetinaZ3Monitor")) 1)
  1275.       (if (> (exists ("EnvArc:RetinaZ3Monitor")) 0) 
  1276.          (copyfiles (source "EnvArc:RetinaZ3Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1277.       )
  1278. )
  1279.  
  1280. (if (< (exists ("EnvArc:CyberGraphics/PiccoSD64Monitor")) 1)
  1281.       (if (> (exists ("EnvArc:PiccoSD64Monitor")) 0) 
  1282.          (copyfiles (source "EnvArc:PiccoSD64Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1283.       )
  1284. )
  1285.  
  1286. (if (< (exists ("EnvArc:CyberGraphics/CyberVisionMonitor")) 1)
  1287.       (if (> (exists ("EnvArc:CyberVisionMonitor")) 0) 
  1288.          (copyfiles (source "EnvArc:CyberVisionMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1289.       )
  1290. )
  1291.  
  1292. (if (< (exists ("EnvArc:CyberGraphics/A2410Monitor")) 1)
  1293.       (if (> (exists ("EnvArc:A2410Monitor")) 0) 
  1294.          (copyfiles (source "EnvArc:A2410Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1295.       )
  1296. )
  1297.  
  1298.  
  1299.  
  1300. ;******************************************************************************** 
  1301. ;
  1302. ;  Update the Monitor file ..
  1303. ;
  1304. ;
  1305. ;********************************************************************************
  1306.  
  1307.  
  1308.  
  1309. (if (> (exists ("sys:devs/monitors/Picasso")) 0)     (set #BGuess 0)  )
  1310. (if (> (exists ("sys:devs/monitors/Spectrum")) 0)    (set #BGuess 1)  )
  1311. (if (> (exists ("sys:devs/monitors/Piccolo")) 0)     (set #BGuess 2)  )
  1312. (if (> (exists ("sys:devs/monitors/Domino")) 0)      (set #BGuess 3)  )
  1313. (if (> (exists ("sys:devs/monitors/RetinaZ3")) 0)    (set #BGuess 4)  )
  1314. (if (> (exists ("sys:devs/monitors/PiccoSD64")) 0)   (set #BGuess 5)  )
  1315. (if (> (exists ("sys:devs/monitors/CyberVision")) 0) (set #BGuess 6)  )
  1316.  
  1317. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
  1318.                                "Retina Z3 BLT" "Piccolo SD64" "CyberVision64"
  1319.              (prompt #board)
  1320.                      (help "Select a Gfx Board")
  1321.                    (default #BGuess)
  1322.                  )
  1323.           )
  1324. )
  1325.  
  1326.  
  1327. (if (= board 0) (set #BOARD "Picasso") )
  1328. (if (= board 1) (set #BOARD "Spectrum") )
  1329. (if (= board 2) (set #BOARD "Piccolo") ) 
  1330. (if (= board 3) (set #BOARD "Domino") )
  1331. (if (= board 4) (set #BOARD "RetinaZ3") )
  1332. (if (= board 5) (set #BOARD "PiccoSD64") )
  1333. (if (= board 6) (set #BOARD "CyberVision") )
  1334.  
  1335.  
  1336. (set BackDirText "SYS:Storage/CyberGraphX")
  1337.  
  1338. (if (< (exists (BackDirText)) 2)  (makedir (BackDirText) (infos))  )
  1339.  
  1340. (if (< (exists (tackon BackDirText "devs")) 2)
  1341.           (makedir (tackon BackDirText "devs") (infos))
  1342. )
  1343.  
  1344. (if (< (exists (tackon BackDirText "devs/monitors")) 2)
  1345.         (makedir (tackon BackDirText "devs/monitors") (infos))
  1346. )
  1347.  
  1348.  
  1349.  
  1350. (if (> (exists (cat "Devs:Monitors/" #BOARD)) 0)
  1351.                   (copyfiles (source (cat "Devs:Monitors/" #BOARD)) (dest (tackon BackDirText "devs/monitors"))
  1352.                     (infos)
  1353.                     (newname (cat (tackon BackDirText "devs/monitors/") #BOARD ".backup"))
  1354.                   )
  1355. ) 
  1356.  
  1357.  
  1358. (set #updated 0)
  1359.  
  1360.  
  1361. (if (= board 0)
  1362.   (
  1363.     (set #Update (run "Updaters/UpdatePicassoII devs:monitors/Picasso") ) 
  1364.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1365.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1366.     (if (= #update 10) (message #updateBad) )       
  1367.     (set #updated 1)
  1368.   )
  1369. )
  1370.  
  1371. (if (= board 1)
  1372.   (
  1373.     (set #Update (run "Updaters/UpdateSpectrum devs:monitors/Spectrum") ) 
  1374.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1375.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1376.     (if (= #update 10) (message #updateBad) )       
  1377.     (set #updated 1)
  1378.   )
  1379. )
  1380.  
  1381. (if (= board 2)
  1382.   (
  1383.     (set #Update (run "Updaters/UpdatePiccolo devs:monitors/Piccolo") ) 
  1384.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1385.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1386.     (if (= #update 10) (message #updateBad) )       
  1387.     (set #updated 1)
  1388.   )
  1389. )
  1390.  
  1391. (if (= board 3)
  1392.   (
  1393.     
  1394.    (message (cat #updateNoUpdate (tackon BackDirText "devs/monitors/") #BOARD ".backup"))    
  1395.  
  1396.   )
  1397. )
  1398.  
  1399. (if (= board 4)
  1400.   (
  1401.     (set #Update (run "Updaters/UpdateRetinaZ3 devs:monitors/RetinaZ3") ) 
  1402.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1403.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1404.     (if (= #update 10) (message #updateBad) )       
  1405.     (set #updated 1)
  1406.   )
  1407. )
  1408.  
  1409. (if (= board 5)
  1410.   (
  1411.     (set #Update (run "Updaters/UpdatePiccoSD64 devs:monitors/PiccoSD64") ) 
  1412.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1413.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1414.     (if (= #update 10) (message #updateBad) )       
  1415.     (set #updated 1)
  1416.   )
  1417. )
  1418.  
  1419. (if (= board 6)
  1420.   (
  1421.  
  1422.     (message (cat #updateNoUpdate (tackon BackDirText "devs/monitors/") #BOARD ".backup"))    
  1423.    
  1424.   )
  1425. )
  1426.  
  1427.  
  1428.  
  1429.  
  1430.  
  1431. ;*******************************************************************
  1432. ;  EEENNNDDD
  1433. ;*******************************************************************
  1434.  
  1435. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  1436. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  1437.  
  1438. (run (cat "run " #mpath "/multiview docs/Changes.txt") )
  1439. (delete "ram:lan")
  1440. (set @default-dest "sys:")
  1441. (exit "Quick Update Complete!")
  1442.  
  1443.  
  1444.  
  1445.  
  1446.  
  1447.  
  1448.  
  1449.